home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / gfx / fu1_62.lha / fu / Rexx / anim1.rexx next >
OS/2 REXX Batch file  |  1995-03-19  |  1KB  |  55 lines
  1. /* FU Arexxtester */
  2.  
  3. options results
  4.  
  5. ADDRESS REXX_FU
  6.  
  7. say 'FU-ArexxAnim1';say;
  8.  
  9. SetZoom '-1.625 -1.3 1.625 1.3';
  10. if RC~=0 then call AppError('SetZoom',RC);
  11.  
  12. SetIter '100';
  13. if RC~=0 then call AppError('SetIter',RC);
  14.  
  15. par1r=0.11031;    par1rs=0.0025;
  16. par1i=-0.67037;    par1is=0.0025;
  17.  
  18. do i=0 to 10
  19.     name='xh3:frames/tjulia.'right(i,3,'0');
  20.     say 'Working on : ' name;
  21.  
  22.     SetParam '1' par1r par1i;
  23.     if RC~=0 then call AppError('SetParam',RC);
  24.  
  25.     RenderPicture;
  26.     if RC~=0 then call AppError('RenderPicture',RC);
  27.  
  28.     SavePicture name '2'
  29.     if RC~=0 then call AppError('SavePicture',RC);
  30.  
  31.     par1r=par1r+par1rs;
  32.     par1i=par1i+par1is;
  33. end
  34.  
  35. ActivateFU;
  36. if RC~=0 then call AppError('ActivateFU',RC);
  37.  
  38. ExitFU;
  39. if RC~=0 then call AppError('ExitFU',RC);
  40.  
  41. exit
  42.  
  43. AppError:procedure
  44.     cmd=arg(1);
  45.     ret=arg(2);
  46.     say 'Application Error';say;
  47.     say 'Command 'cmd' failed with Returncode 'ret;
  48.     select
  49.         when ret='1' then say '    => unknown command';
  50.         when ret='2' then say '    => unknown parameter';
  51.         otherwise say '    => unknown returncode';
  52.     end
  53.     say;
  54. return
  55.